Top 10k strings from Bridge Player 3 (1983)(CP Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /
Back to the directory listing
3 x+fo,y+tw;e$
3 x$(th)>a$(y)):
3 w=x+(x$(y)>j$(ol)
3 j$(op,tw)>"
3 j$(op)>j$(ol)
3 cd=tw*(t>on
3 a$(on)=("P"
2 y$(fo,fo):
2 y$(a,tw)="5"
2 y$(a)="100"+
2 x+tw,y+tw;e$;
2 x$(y)>j$(ol,y)
2 x$(y)>a$(y)
2 x$(w)>a$(y)
2 w=y+(x$(th)>j$(ol,y)
2 v$(x,y)>j$(ol,u)
2 t>fo;f$(tw);
2 on;"Hand no.";h;
2 nt+d(k)<23
2 j$(q,tw)>"
2 j$(m,a(m)):
2 j$(l)=j$(l,
2 h$(tw-a)<"1"
2 h$(a+on,th
2 e(y)>e(th)
2 a=(j-g+r>7
2 a(l)=a(l)-on:
2 a$(y)>e$(fo)
2 a$(x)=s$(t)
2 a$(tw)=r$(t)
2 a$(tw)="P")+
2 a$(tw)=" "
2 a$(on)=("6"
2 a$(on)=("3"
2 a$(on)="R"
2 a$(on)="N"
2 a$(on)="D"
2 ;"BRIDGE PLAYER 3";
2 972
2 9653 96
2 52
2 ,ze;l$;l$;
2 ,y+on;e$;" ";e$:
2 +x,(y(k,x)+6
2 (k-tw*(k>tw)):
1 zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzxxxzzzzxxxzzzzzzzxxzzzzzzzzzzzzzxzxzzzxzzxzzzzzzxxxxzzzzzzzzzzzzxzzzzzxzzxzzzzzzxxxzzzzzzzzzzzzzxzzzzzxzzxzzzzzzxzzzzzzzzzzzzzzzxzzzzzzxxxzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzxxzzxxzzxzzzzzzzzzzzzzzzzzzzzzzxxxxzxxzzxzzzzxxzzzzzzzzxxzzzzzzzzzxzxxxxzzzzxxxxzzzzzzxxxxzzzzzzxxzzxxzzzzzzxxxxzzzzzzxxxzzzzzzzzzxzxxzzzzzzxxxxzzzzzzxzzzzzzzzxxxxzxxzzzzzzzxxxzzzzzzzxxxzzzzzzxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz8888888888888888888888888888888888888888888888888888888888888888
1 zz=k-tw*(k>tw)
1 ze;" led. Enter ";(b$(k,
1 ze;" holding ");" ";
1 ze;" Please wait while the computer assesses and analyses the hands.":
1 ze;" ";(b$(k,
1 ze;" This is your hand as
1 ze,on,tw,th,fo,st,n,h,md,u,gg,o$,p$,n$,q$,r$,s$,t$,u$:
1 ze,f,f,f,f,f,f,f,p$
1 ze)+("E/W"
1 z>fo)+("4"
1 z=fo*y-fo+x:
1 z=a(op-n+t):
1 z(z);z$(z):
1 z(fo*j-fo+k)=f(v):
1 z$(fo*j-fo+k)=a$:
1 y>fo))*x+10
1 y=y+tw+tw*(
1 y=y+st+fo*(x$(th)
1 y=y+fo+fo*(x$(th)=e$(5
1 y=y*tw+(y+a(op))*100
1 y=y(k,on):
1 y=x-(x>on):
1 y=k+x-v+fo*(v
1 y=fo*k-th:
1 y;" trick";"s"
1 y,z;(e$(on)
1 y(n)=y(n)-30
1 y(n)=y(n)+fo*e+8
1 y(n)=y(n)+(f+10
1 y(n)=y(n)+(40
1 y(k-on+fo*(k=on),t)=y(k-on+fo*(k=on),t)-z:
1 y(k,t)=y(k,t)-z+1.4
1 y$(x)="0003":
1 y$(u)="0003":
1 y$(t-(t>fo),fo))=
1 y$(t-(t>fo),fo)
1 y$(t-(t>fo),
1 xy=((x-y)/5
1 x-on,v;j$(m,z);
1 x-on)+g$(x+on
1 x+tw,y+on;e$;" ";e$;
1 x+th,y+tw;e$
1 x+th,y+on;e$;" ";e$;
1 x+on,y+on;e$;" ";e$;
1 x+fo,y+on;e$;" ";e$:
1 x$(y)>j$(or)):
1 x$(y)>j$(ol)
1 x$(y)>a$(y))+(x$(th)>j$(ol)
1 x$(y)>a$(y))+(x$(3
1 x$(y)<e$(th)
1 x$(x)=e$(y)
1 x$(x)<e$(y)
1 x$(w)>v$(x,y)
1 x$(w)>j$(ol,u)
1 x$(tw)=e$(tw)
1 x$(tw)=e$(th))
1 w>ze)+"11":
1 w=x+(x$(y)>a$(y)):
1 w=e(on)*e(tw)*e(th)*e(fo)-9
1 w-on)+j$(l,w+on
1 w$="AAAAAAAAAA":
1 v-on)+c$(b(w),v+on
1 v$(x,y)>j$(ol)
1 v$(w,tw)=c$(b(w),v)
1 v$(fo,tw):
1 u=e(w+on):
1 tw;"while the computer shuffles,"''
1 tw;"You have attempted to break intothis program: this is forbidden."''" The current deal has been"'
1 tw;"Rubber complete";
1 tw;"Remaining tricks claimed":
1 tw;"Dealer":
1 tw;"Congratulations";
1 tw;"4 - to see all 4 hands":
1 tw*(e$(tw)="
1 tw)>h$(tw-a,
1 tw)=x$(on)+j$(op,on))
1 th;"deals and sorts the cards"''
1 th;"4 hands. Otherwise press 2. ":
1 th)=x$(x)+v$(x,y)+j$(op,x)
1 th)=j$(ol,x)+j$(op,x)
1 t>fo;a$(tw):
1 t>fo)+e(b):
1 t>fo)+e(a):
1 t))+(j>12.6
1 st,ze;" Tricks ";
1 rd=(e$="2"):
1 p>tw)+s$(p):
1 p=(tv*r+10
1 p4=(e$="A"):
1 p4=(e$="4"):
1 p$=("Vul:none"
1 op=fo*k-fo+w-(w>fo):
1 on;ze,on-aa
1 on;"W, S, or V?"
1 on;"To continue press C":
1 on;"Revoke";
1 on;"Press P for print-out, R to re-"'"play last hand, N for next hand"
1 on;"Press A or B ";
1 on;"Press 4 if you want to play all",
1 on;"PRESS A KEY";
1 on;"Dealer:";o$(d)'
1 on;"C or D?"
1 on;"Bidding to restart":
1 on;"1, 2 OR 3?";
1 o()=o+fo-st*(o>12
1 n<fo);s$(n);
1 m$>on)+(600
1 m$>"F")+(100
1 m$="J")+(200
1 m$="F")+(400
1 m$="E")+(300
1 l=g(on)+g(3
1 l<ze);" win by ";
1 l(x),tw)="
1 l(x),on)="
1 l(t)-(t>fo):
1 k=k+i-fo*(k+i>fo):
1 k1=k1+on-fo*(k1>tw)
1 k(k),t)=y(
1 k(k),t)-z:
1 k$(v,tw)="
1 k$(b-tw,on)="D")
1 k$(b-tw,on)="D"
1 k$(b-tw)>"E"
1 k$(b-tw)>"D"
1 k$(b-th,on)="P"
1 k$(b)="Pass":
1 k$(b)="P":
1 j=d(k)-(th-a(
1 j(k),t)=y(
1 j(k),t)<fo
1 j(k),t)+z+(w$(t+5
1 j$(v)=j$(v+st):
1 j$(q,th)>"
1 j$(q,on)="
1 j$(or,y)>e$(fo))))
1 j$(or,x)>e$(fo)
1 j$(op,x)=e$(x))
1 j$(op,tw)<"
1 j$(op,on)=e$(th)
1 j$(op)>v$(x,y)
1 j$(op)>j$(or)
1 j$(op)>j$(o)))
1 j$(op)>a$(y)
1 j$(op)<j$(ol))
1 j$(op)<e$(y)
1 j$(op)<e$(on))
1 j$(op)<a$(y))
1 j$(op)<a$(y)
1 j$(ol,y)=e$(5
1 j$(ol,u)=" "
1 j$(o,on)>e$(ao-(ao>on
1 j$(o+st)=j$(o):
1 j$(o+st)=e$:
1 j$(o)=d$(u):
1 j$(o)<e$(or+(j$(op)>j$(o)))
1 j$(m,y)>d$(t,fo)
1 j$(m,w)>v$(v-x,y)
1 j$(m,w)>j$(ol-n+t,on)
1 j$(m,w)<c$(t,x)
1 j$(l,w)=a$(tw)
1 j$(l+st)=j$(l):
1 j$(k,tw)="
1 j$(k,on)="
1 j$(c,y)=e$(x)
1 i+on);o$(p+w-fo*(p+w>fo));
1 i$="A")+(s$(n)
1 h$(tw-a,on)*5
1 h$(tw-a)>"1")
1 h$(tw-a)>"1"
1 h$(tw,fo):
1 h$(tw)=h$(on):
1 h$(on)="0000":
1 h$(a+on,tw)
1 h$(a+on,on)
1 h$(a+on)>"3"
1 h$(a+on)<"1"
1 gg>on)+("N/S game"
1 gg)+("Game all"
1 g(w+x);g(w+x)
1 g(fo+tw*gg))
1 g(fo+tw*gg)
1 g(c)=g(c)+p:
1 g(b)=g(b)+q
1 g(a)=g(a)+o:
1 g$=("1342"
1 g$="1234":
1 g$(w+on)=e$
1 g$(w)=g$(w+on):
1 fo;"Hand ";h'
1 fo,ze;"Contract"'r;
1 ffff)+(a$(tw)
1 f=tw)+y*100
1 f,g,i,j,l,aa,k1,rp,n$
1 f(x);v$(x,on):
1 f(w);v$(w):
1 f(v)=tw*(u>on
1 f(v);a$(on):
1 f(on);(s$(n));
1 f$=f$+"x":
1 f$=a$(on)+u$(t)+("x"
1 f$(tw)=u$(t)
1 e=f+on+d(k)+(fo
1 e=e-d(k)+j
1 e=d(k)+(13
1 e(w+on)=u:
1 e(w)=e(w+on):
1 e(w)<e(w+on)
1 e$="W")+(15
1 e$="-----":
1 e$(y-on)=g$
1 e$(y-on)=e$(y)
1 e$(y)>e$(y-on)
1 e$(y)=e$(y-on):
1 e$(x)=t$(y):
1 e$(x)=q$(y)
1 e$(u+w+on)
1 e$(tw)>"3"
1 e$(tw)<"5"
1 e$(p)>"3")+"P":
1 e$(on)="P");
1 e$(n)>"3")+(s$(p)
1 e$(fo)=e$(on))
1 e$(a)=g$(x)
1 de=fo)+(30
1 d=(a(ol)>ze)+(a(or)>ze):
1 d(k)=d(k)+c(k):
1 d(k)=d(k)+3
1 d$(x)=y$(x):
1 c=l+th*(k=tw)+7
1 c=a+tw+tw*gg:
1 c4=(e$="4"):
1 c4=(e$="1"):
1 c,d;v$(x,tw);
1 c,d;a$(tw);
1 c,b-th;" ";
1 c+x,b;s$(x);:
1 c(k)=c(k)+
1 c$(t,y)=" ")
1 c$(b(w))=c$(b(w),
1 bridge34 v
1 bridge33
1 bridge32
1 bridge m
1 bi=(e$="C"):
1 b(x)=b(x)-a(
1 a=de-tw*(de>tw):
1 a(v)=a(v+st):
1 a(or-n+t))):
1 a(or)+a(ol)>x
1 a(op-n+t))
1 a(op)>tw)))+"2
1 a(op)+a(or)
1 a(ol-n+t-(t>fo))+a(or-n+t-(t>fo)))
1 a(ol-n+t)))+(60
1 a(ol)+a(or)
1 a(ol)+(v=fo))
1 a(ol))+(50
1 a(o+st)=a(o):
1 a(o)=b(u):
1 a(l+st)=a(l):
1 a$=r$(t)+j$(m,w):
1 a$=r$(n)+x$(w):
1 a$=("4"+s$(t)
1 a$="Rdbl":
1 a$="Pass":
1 a$="Dble":
1 a$="6"+s$(fo-k1):
1 a$="5"+s$(fo-(j-
1 a$="3"+s$(p):
1 a$="2"+s$(t):
1 a$="2"+s$(p):
1 a$="1"+s$(p):
1 a$="1"+s$(n):
1 a$(y)>e$(6
1 a$(y)=e$(fo)
1 a$(y)<e$(5
1 a$(x)=f$(y)
1 a$(tw)>"1"
1 a$(tw)=u$(z):
1 a$(tw)=u$(y)
1 a$(tw)=u$(t)
1 a$(tw)=t$(w):
1 a$(tw)=t$(w)
1 a$(tw)=s$(t):
1 a$(tw)=q$(w)
1 a$(tw)=j$(l,a(l)):
1 a$(tw)=f$(tw)
1 a$(tw)=a$:
1 a$(tw)=(s$(z)
1 a$(tw)=((s$(p)
1 a$(tw)+200
1 a$(th)="X")+("x"
1 a$(on)=s$(u):
1 a$(on)=s$(u)
1 a$(on)=s$(n):
1 a$(on)=r$(u)
1 a$(on)=q$(x)
1 a$(on)=("4"
1 a$(on)=("1"
1 a$(on)="P"
1 a$(on)="O"
1 a$(on)="B"
1 a$(on)-on:
1 a$(on)+k$(b-on,on)+k$(b-tw,on)
1 a$(fo)="X"):
1 North5East 4South5West 4G
1 Ffff)+("6"
1 A313A2AAAA
1 @```````BBC ' P
1 @@@@@@@@F(
1 ;l$;l$;l$;
1 ;k$(v,on);"N"
1 ;j$(m,a(m)):
1 ;j$(l,w);" ";:
1 ;"without penalty ";
1 ;"with ";y;" overtrick";"s"
1 ;"points":
1 ;"for hand no.";h:
1 ;"exactly"
1 ;"erased. To restart";
1 ;"Variable no trump ?",,,,,
1 ;"Strong (15-17) or",,,
1 ;"South's hands"''
1 ;"Slam bid and made"
1 ;"Please wait a moment":
1 ;"Play to restart":
1 ;"London N19 5ND"
1 ;"LOADING":
1 ;"LOADING"
1 ;"Enter his hand again. ":
1 ;"CP Software";
1 ;"Bridge3.3"
1 ;"Bridge3.2"
1 ;"Bidding";
1 ;"15 Despard Road";
1 ;"1 or 2?";
1 ;"-------"'':
1 ;"- B to rebid it first",:
1 ;"(honours scored)"
1 ;" by ";o$(de);
1 ;" You have attempted to break into the program, which is forbidden. Rewind your tape and re-load the entire program.":
1 ;" ";j$(o,x);:
1 ;" ":
1 98765432","
1 82 83 6
1 82 83
1 432123456789
1 3333*(w$(t+5
1 0003000300030003
1 /(y+a(op)+a(or)+a(ol)):
1 -th*(y=fo)+th*(y=tw):
1 -th*(k=fo)+th*(k=tw):
1 -st*(o>fo)
1 -a(ol)-a(or))*(10
1 -(t>fo);r;
1 ,ze;l$;l$:
1 ,ze;"to play a Weak (12-14),",,,
1 ,ze;"Press - P to replay the hand";
1 ,ze;"N/S E/W";
1 ,ze;"A - to play the cards from all 4 hands ?",,,,"B - to let the computer play the defender's cards ?",,,,
1 ,ze;"1 - to see all four hands ?",,,"2 - to see merely those of Northand South ?",,,,,,
1 ,ze;"1 - N/S (your side) always to have more points than E/W ?",,,"2 - N/S usually (but not always) to have more points than E/W ?",,,"3 - randomly dealt hands ?",,,
1 ,ze;" You have given ";b$(k,
1 ,ze;" ****** ";
1 ,ze;" ";g;
1 ,ze,,,,"C - to bid and play the hands ?",,,"D - merely to play the cards ?",,,,,,,,,,,
1 ,y+on;e$;" ";e$;
1 ,tw;"You have left West with a ";a(o);'" card suit, which is too long."'''" Enter entire hand again.":
1 ,tw;"2 - to see only North's and";
1 ,th;"Please wait a few moments"''
1 ,on;"N/S E/W":
1 ,on;" Do you want:-",,,,"A - the computer to deal the"," cards ? or",,,,"B - to input a deal of your own choosing ?",,,,,,
1 ,h,h,h,"NESW","Vul:none",p$,"AKQJT","SHDCN","
1 +tw*gg)+(20
1 +tw*gg))+(" E/W "+
1 +tw*(y=th)-tw*(y=on):
1 +tw*(k=th)-tw*(k=on):
1 +tw*(k=th)-tw*(k=on),15
1 +t,y(t)/th
1 +os-th*(k=fo)+th*(k=tw);"?"
1 +n,y(n)/th:
1 +fo*(t>fo)):
1 +(n=t)+(t>fo)
1 *os-x/tw,124
1 *(y>fo)>96
1 *(x$(th)=e$(th))
1 *(u=t))*(u=t
1 *(t>fo)+g(th+a+tw*gg):
1 *(t>fo))*(f-(f<fo)):
1 *(k=tw)-10
1 *(h$(tw,th
1 *(f-tw)+(tv*y
1 *(f-tw)*(on+g(a+8
1 *(e$="1"):
1 *(de=tw)-5
1 *(de=tw)+5
1 *(de=th)+8
1 *(de=on),13
1 *(de=fo);"
1 )>h$(tw-a,th
1 )>h$(on,th
1 )=x+tw-fo*(x>tw):
1 )=x+on-fo*(x
1 )=fo*k-fo+x:
1 )-g(tw)-g(fo)-g(6
1 ));"'s card ";
1 ));" ";(p);" cards.";
1 ))+fo*(x$(th)=e$(5
1 ))+(x$(th)=e$(fo))
1 ))+("E/W game"
1 ))+("2134"
1 ))+(" N/S "+
1 ))+"1243":
1 )));" to play. Enter card ";
1 )));" to play again";
1 (x$<j$(or)
1 (x$(y)>a$(y)
1 (x$(x)=e$(x)
1 (x$(w)>a$(y)
1 (x$(th)>a$(y)
1 (v$(x,y)>a$(y)
1 (r+(z>t)+(y<70
1 (r+(f$(tw)>a$(tw))+(d(k)>9
1 (on+(z=t)+(j>10.4
1 (on+(j>14.4
1 (j$(or,x)=e$(fo)
1 (j$(op,tw)>"
1 (j$(op)<j$(or)
1 (j$(op)<j$(ol,y)
1 (j$(op)<e$(t)
1 (j$(op)<a$(y)
1 (j$(ol,y)=e$(fo)
1 (j$(ol)<e$(fo)
1 (j$(m)<v$(th,y)))
1 (c+tw))/fo:
1 (a=(j-g+r>7
1 (a$(tw)=k$(b-on,tw)
1 ((v$(x,y)>j$(ol,y)
1 ((a=(j-g+r
1 ''''"This routine was written by F.A.Vachha and is included by kind permission of:-"''
1 ''"Press"''" R - to review last hand"''" N - to go on to next hand"''" O - for list of options"
1 "Your bid? ";
1 "You have entered the same card twice. Enter suit again. ";
1 "Maximum holding in one suit is 8cards. Enter suit again. ";
1 "Enter declarer ";"(N or S only) "
1 "Enter contract ";("(which need not be the same as before) "
1 "Enter ";(b$(k,
1 "Bridge3.4"
1 ",e$,g$,e$,g$,e$,g$,"
1 ","North5","East 4","South5","West 4"
1 ")-tw*(e$="
1 ")+(e$(tw)
1 " defeated";
1 " ";j$(y+x,w);:
1 R.Wheen":
1 R.Wheen 1985
1 O
1 :
1
1
1